[Страдалецъ]

Зачем так?

Код:

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.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Add(Copy(Edit1.Text, 1, StrToInt(Edit2.Text)));
end;