[Yurk@]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
text, tm :string;
i : integer;
begin
text:='вован 345 литров молока';
tm:='';
for i:=1 to Length(text) do
case text[i] of
'0'..'9' : tm:=tm+text[i];
else
end;
ShowMessage(tm);
end;