Fórum Mudar nome do contato #472464

var
arquivo: TStringList;
begin
if ((Edit1.Text = '') and (Edit2.Text = '')) then  
  showmessage('Não há informações suficientes para criar um contato') 
  else
begin
ListBox1.Items.Add(Edit1.Text); 
if not DirectoryExists('C:\Contatos') then
ForceDirectories('C:\Contatos'); 
arquivo := TStringList.Create; 

//aqui >>
if  trim(Edit1.Text) = '' then
    Edit1.Text := Edit2.Text;
//aqui <<
try
  arquivo.Add('Nome : ' + Edit1.Text);  
  arquivo.Add('Número : ' + Edit2.Text);
  arquivo.Add('Endereço : ' + Edit3.Text); 
  arquivo.Add('E-mail : ' + Edit4.Text);   
  arquivo.SaveToFile('C:\Contatos\'+Edit1.Text+'.txt');
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  finally
  arquivo.Free;
  end;
end;
end;