想问一个字符串处理有关问题

想问一个字符串处理问题
我想把字符串如21453.12356这样类型的   把小数点之前的数字和小数点之后的数字分别提取，并转换为实形变量21453     和12356     如该如何做啊？

[解决办法]
var
S : string;
F1,F2 : double; //实型
begin
S := '21453.12356 ';
F1 := StrToFloat(Copy(S,1,Pos( '. ',S)-1));
F2 := StrToFloat(Copy(S,Pos( '. ',S)+1,MaxInt));
showmessage(floattostr(F1));
showmessage(floattostr(F2));
end;