Memo1.Lines[0] prüfen!

[strom]

wenn im Memo, in der ersten Zeile eine Zahl steht,
soll eine das Memo kopiert werden!

Wie könnte so was aussehen?

Delphi-Quellcode:

begin
 if Memo3.Lines[0] =( Key in ['0'..'9', #8] ) then /?????????????????????
  begin
   Memo5.text := Memo3.Lines[0];
  end;