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;