Почтовый клиент с нуля

procedure TCreateLetter.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
   Close; 
   EditWhom.clear; Он очищает все что я вожу сразу как только стоить перестать печатать! 
   А мне нужно при закрытие формы
   Чтобы когда открываешь форму заново она была чистой для ведения новых данных.
   lbxAttach.Refresh; А тут не удаляет вложения 
end;
 
procedure TCreateLetter.ToolButtonCancelClick(Sender: TObject);
begin
   close;
   EditWhom.Text:=''; Пробовала так аналогично тоже самое что и в первом примере. 
   lbxAttach.DeleteSelected; И так пробовала тоже самое. lbxAttach.Clear; а так тоже удаляет сразу.
end;

procedure TCreateLetter.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin
    Close; 
    EditWhom.clear; // Он очищает все что я вожу сразу как только стоить перестать печатать! 
    // А мне нужно при закрытие формы
    // Чтобы когда открываешь форму заново она была чистой для ведения новых данных.
    lbxAttach.Refresh; // А тут не удаляет вложения 
  end;
end;

procedure TCreateLetter.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   EditWhom.Clear; // очистка формы
   EditReturnAddress.Clear; // очистка формы
   EditTema.Clear; // очистка формы
   RichEditMessages.Clear; // очистка формы
   lbxAttach.Items.Clear;
end;
 
end.

procedure TCreateLetter.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin // begin ... end обязательны, если надо выполнить более 1 действия по этому условию
    Close; // Закрывается форма
    EditWhom.clear; // Очищается поле ввода
    lbxAttach.Refresh; // Очищается ListBox со списком вложений
  end;
 
end;

procedure TCreateLetter.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin // begin ... end обязательны, если надо выполнить более 1 действия по этому условию
   EditWhom.Clear; // очистка формы
   EditReturnAddress.Clear; // очистка формы
   EditTema.Clear; // очистка формы
   RichEditMessages.Clear; // очистка формы
   lbxAttach.Items.Clear;
   Close; // Закрывается форма
  end;
end;

procedure TCreateLetter.ToolButtonCancelClick(Sender: TObject);
begin
   EditWhom.Clear; // очистка формы
   EditReturnAddress.Clear; // очистка формы
   EditTema.Clear; // очистка формы
   RichEditMessages.Clear; // очистка формы
   lbxAttach.Items.Clear;
   close; // Закрываем форму
  end;
end;

procedure TCreateLetter.ClearForm;
begin
   EditWhom.Clear; // очистка формы
   EditReturnAddress.Clear; // очистка формы
   EditTema.Clear; // очистка формы
   RichEditMessages.Clear; // очистка формы
   lbxAttach.Items.Clear;
  end;
end;

procedure TCreateLetter.ToolButtonCancelClick(Sender: TObject);
begin
  ClearForm;
  Close; // Закрываем форму
end;

procedure TfmConfNewMailbox.btnSaveClick(Sender: TObject); 
  var Ini: Tinifile;
    begin
      Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Mail.ini');   
      Ini.WriteString('User','UserEmail',edtMail.Text);              
      Ini.WriteString('User','UserName',edtUserName.Text);           
      Ini.WriteString('Directory','Install',edtInstallDir.Text);     
      Ini.WriteString('Directory','Attachment',edtAttachDir.Text);   
      Ini.Free;
      close;
    end;
 
procedure TfmConfNewMailbox.OnCreate(Sender: TObject);
  var Ini: Tinifile;
    begin
      Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'Mail.ini'); 
      edtMail.Text     := Ini.ReadString('User','UserEmail', '');  
      edtUserName.Text := Ini.ReadString('User','UserName', '');   
      edtInstallDir.text:=Copy(application.ExeName,1,length(application.ExeName)-length(application.Title)-4{.exe}); 
      edtAttachDir.text:=edtInstallDir.text+'Attach\'; 
      Ini.Free; 
    end;

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'edtMail.Text');

procedure TfmConfNewMailbox.btnSaveClick(Sender: TObject); 
  var Ini: Tinifile;
    begin
      Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'edtMail');   Хоть так 
      Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'edtMail.Text');   Хоть этак одно и тоже. Но не то что мне нужно)
      Ini.WriteString('User','UserEmail',edtMail.Text);              
      Ini.WriteString('User','UserName',edtUserName.Text);           
      Ini.WriteString('Directory','Install',edtInstallDir.Text);     
      Ini.WriteString('Directory','Attachment',edtAttachDir.Text);   
      Ini.Free;
      close;
    end;

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+edtMail.Text); //указать расширение .ini в поле эдита

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'edtMail.Text');

Ini:=TiniFile.Create(extractfilepath(paramstr(0))+edtMail.Text);