ReversString oder Funktionen versteh ich nicht ;)

[DelphiNoob1.0]

Hey,
ich hab ein großes Problem, ich weiß einfach nicht wie ich es schaffen soll ein String mit dem gleichen String(umgedreht mit ReverseString zu vergleichen. Hoffe ihr könnt helfen

Code:

var
  Form1: TForm1;
  wort, ge: String;
implementation

{$R *.dfm}


procedure TForm1.Edit1Change(Sender: TObject);
begin
 wort:=edit1.Text;

 If ge = wort then Edit2.Text:='ja' else Edit2.Text:='nein';
end;

function ReverseString(ge: string): string;
begin
 ge:=wort;
end;
end.

So danke Leute und sorry für meine Unwissenheit