Разделение строки на подстроки (Delphi)

[Zilian]

Помогите пожалуйста, не могу сделать лабораторку по программированию.
Тема объектно-ориентированное программирование.
Создал класс TStroka с полями: длина строки и сама строка.
Надо сделать метод класса который будет разделять экземпляр класса на две подстроки известной длины.
Что это значит и какими процедурами это надо делать ?

[Lemo]

Юзайте в своём методе функцию
copy()

ЗЫ могу зделать за вознаграджение)

[Lemo]

function TStroka.ModifyStr(a, b: integer):string;
var s1,s2:string;
begin
  s1:=Copy(fSt,1,a);
  s2:=Copy(fSt,a+1,b);

  Result:='1-я подстрока : '+'"' + s1+'"' +'  2-я подстрока : '+'"' +s2+'"' ;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if (StrToInt(Edit3.Text)+StrToInt(Edit4.Text)) = Length(s.fSt) then
  begin
    memo1.Lines.Add( S.ModifyStr(strtoint(Edit3.Text),strtoint(Edit4.Text)));

  end
else
  ShowMessage('Вы ввели неправильную длинну');



end;

ТС, лови!

[Zilian]

Спасибо огромное, реально выручил!