[Neftali [Germán.Estévez]]

Yo siguiendo el consejo de [Al] de no usar el with; Dejaría el código así (cambiando lo mínimo). Revísalo y s tienes alguna duda pregunta.

Código Delphi [-]
begin
    Form3 := TForm3.Create(self);
    try
      lineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.Selstart, 0);
      if Form3.ShowModal = mrOk then
      begin
        try
          nameData := Form3.Edit1.Text;
          numberData := StrToInt(Form3.Edit2.Text);
          dateData := StrToDate(Form3.Edit3.Text);
          Memo1.Lines[lineNumber] := ('N:'+nameData+
                ';D:'+IntToStr(numberData)+
                ';F:'+DateToStr(dateData));
        except
          ShowMessage('Wrong Data: Please insert correct values');
        end;
      end;
    finally
      Form3.Free;
    end;
end;