String kürzen bei Delphi

[Delphi]

Ich will einen String kürzen. Der String sieht wie folgt aus: '08.03.05'!! Den möchte ich auf '03' kürzen. Ist das möglich??
MFG Delphi

[coder24h]

Hi Delphi

function MyTrim(aStr: string): string;
var myString: string;
begin
 myString:= aStr[4];
 myString:= myString+aStr[5];

 result:= myString;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= MyTrim('08.03.05');
end;

MfG
coder24h