[olega]

Создал пустой проект и добавил кнопку. К ней следующий обработчик:

procedure TForm1.Button1Click(Sender: TObject);
Var
S,SMSText:String
begin
S:='oleg';
SMSText:=Copy(S,1,2);
ShowMessage(SMSText);
end;