Operacje na stringu[DELPHI]

procedure TForm1.Button1Click(Sender: TObject);
var
bufor: string;
begin
if self.CzyCyfraN(edit1.Text, 1) then begin
edit2.Text:=self.ObetnijKod(edit1.Text);
end
else
begin
end;
end;


function TForm1.CzyCyfraN(s: string; n: Integer): Boolean;
begin
if s[n] in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']
then Result := True
else Result := False;
end;

function TForm1.CzyLancuchJestLiczba(s: string): Boolean;
begin
Result := False;
if StrToFloatDef(s, 0) <> 0
then Result := True;
if StrToFloatDef(s, 1) <> 1
then Result := True;
end;

function TForm1.ObetnijKod(Tekst: string): string;
begin
result:=copy(tekst,8,edit1.GetTextLen);
end;

Więcej na: http://lasica.hostdmk.net/delphi.html#B1