Работа со строками

[pant]

Сама задача: Дан текст, в котором встречаются арифметические выражения вида a x b, где x - один из знаков +, -, *, /. Выписать все арифметические выражения и вычислить их значения.

На форме присутствуют компоненты Memo, Button, Label.

Алгоритм: Текст из Memo посимвольно проверяется на совпадение с одним из этих знаков. При совпадении производится определение чисел слева и справа от знака, после они преобразовываются из текстовых значений в числовые и выполняется арифметическая операция, соответствующая знаку. Так же с остальными тремя знаками до конца текста. После результаты выводятся в компоненте Label.

Помогите, пожалуйста, не могу правильно все это оформить в виде кода:

procedure TForm1.Button1Click(Sender: TObject);
var
i,n,c,d,e,f: integer;
s: string;
begin
with Memo1 do
begin
For n:=0 to lines.count-1 do
begin
s:=lines[n];
For i:=1 to length(s) do
If s[i]='+' then {здесь не знаю как написать цикл определения чисел}

[UnD)eaD)Snake]

допустим в edit введено "a x b".

вычисляем сумму и разность для a и b:

For i:=1 to length(edit.text) do
begin

if edit.text[i]='+' then
label.caption:= inttostr(strtoint(edit.text[i-2]) + strtoint(edit.text[i+2]))
else
if edit.text[i]='-' then
label.caption:= inttostr(strtoint(edit.text[i-2]) - strtoint(edit.text[i+2]));

// и т.д для деления, умножения.
end;

[pant]

Спасибо большое