Ayuda Urgente

[acertij022]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Str1 : string;
i : Integer;
begin
Str1:=188.25;
for i:=1 to length(Str1)do
if Str1[i]='.' then
begin
Str1 := copy(Str1,i+1,Length(Str1));
// esto es por si tiene mas de 2 caracteres la parte decimal ej(188.2556)
Break;
end;
Showmessage(Str1);
end;

Espero que te sea de utilidad