jak uwarunkować procedurę od np zgodności tekstu w

jak uwarunkować procedurę od np zgodności tekstu w dwóch polach memo?

jezeli o to ci biega to:

procedure sprawdz(memo1, memo2 : Tmemo);
begin
if memo1.text = memo2.text then
begin
*jezeli sa takie same
end else
begin
*a jezeli nie
end;
end;

if Memo1.Text = Memo2.Text then
ZrobTo;
IJeszczeTo;
end else
ZrobCosInnego;--Pozdrawiam {hello}
Tomasz K.

Nie lubie sie spozniac :)--Pozdrawiam {hello}
Tomasz K.

Wiem cos o tym :)