[flips]

Правильно ли я написал процедуру leftstr или это функция?

Код:

procedure TfrmLeftStr.Button1Click(Sender: TObject);
var s,s1,s2:string; cnt:integer;
begin
 cnt:=strtoint(Edit2.Text);
 s:=Edit1.Text;
 s1:=Copy(s,1,cnt);
 Memo1.Lines.Add(s1);
end;

procedure TfrmLeftStr.FormCreate(Sender: TObject);
begin
 Edit1.Text:='';
 Edit2.Text:='';
 Memo1.Clear;
end;