[Delphi] Jak sprawdzić czy w Edicie jest liczba czy liter

Jak sprawdzić jakie są liczby(lub wyrazy) w edicie jeśli znajdują się w nim liczby i wyrazy ?. Np. W edicie jest napisane: "Jest 12343 lub 123" jak robić żeby odczytac ze pierwsza w kolejnosci liczba to 1234 a druga to 123, a pierwszy wyraz to "Jest' a drugi wyraz to "lub"

sprawdzaj po kolei każdy znak i przypisuj go do odpowiedniej zmiennej np. tablicy ;)
P.S. a co ma się wyświetlić jak będzie wyraz abc123efg ???
To Ci może pomóc:

http://www.4programmers.net/download.php?id=684

rozdzielej według spacji i potem do sprawdzenia pozostają tylko poszczególne wyrazy...albo możesz zrobił obsługę błedów i każdy wyraz zamieniać StrToInt() - jeśli OK to wyrazem jest liczba jeśli błąd to wiesz...

Jak sprawdzić jakie są liczby(lub wyrazy) w edicie jeśli znajdują się w nim liczby i wyrazy ?. Np. W edicie jest napisane: "Jest 12343 lub 123" jak robić żeby odczytac ze pierwsza w kolejnosci liczba to 1234 a druga to 123, a pierwszy wyraz to "Jest' a drugi wyraz to "lub"

Ja bym to rozwiązał tak:
(ListBox1 - liczby, ListBox2 - wyrazy)

var
i : integer;
int , str: string;
begin
for i := 1 to Length(Edit1.Text) do
begin
if Edit1.Text[i] in ['0'..'9'] then
begin
int := int + Edit1.Text[i];
if str &lt&gt '' then
begin
ListBox2.Items.Add(str);
str := '';
end;
end
else
begin
if Edit1.Text[i] &lt&gt ' ' then
str := str + Edit1.Text[i];
if int &lt&gt '' then
begin
ListBox1.Items.Add(int);
int := '';
end;
end;
end;
if int &lt&gt '' then ListBox1.Items.Add(int);
if str &lt&gt '' then ListBox2.Items.Add(str);
end;