Zeigeroperation

[craash]

Guten Abend,

Ich entschuldige mich erstmal für den Threadtitel, mir ist einfach nichts eingefallen wie ich mein Problem in wenigen Worten hätte umreißen können.

Mein Problem ist folgendes:

Delphi-Quellcode:

{Delphi 5 Std.}

function membufferscan(a:string) : boolean;
begin
     if pos(a, Form1.membuffer.Lines.Text) > 0 then Result := true
     else result := false;
end;


[...]


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var strings: array [1..9] of string;
    x:integer;
    p:^string;
begin
     strings[1] := 'FEins';
     strings[2] := 'FZwei';
     strings[3] := 'FDrei';
     strings[4] := 'FVier';
     strings[5] := 'FFuenf';
     strings[6] := 'FSechs';
     strings[7] := 'FSieben';
     strings[8] := 'FAcht';
     strings[9] := 'FNeun';

     for x:=1 to 9 do
         begin
         if membufferscan(strings[x]) = true then
            begin
            break;
            p := @x;
            p^:= strings[x];
            p^.caption := 'X';    {hier findet der fehler statt}                   
            end;

Ich möchte in einem Memo (hier genannt 'membuffer') nach einem best. String suchen und je nach Ergebnis einen best. Button beschriften. Zufälligerweise ( ) heißen die Strings, nach denen in einer Schleife gesucht werden soll, genau gleich wie die Buttons, von denen einer je nach Ergebnis beschriftet werden soll.
Das Ganze wollte ich an dieser Stelle (nach einer absurden Idee xD ) mit einem Zeiger lösen, aber irgendwie will Delphi an dieser Stelle nicht ganz wie ich
Der angezeigte Fehler lautet 'Record, Objekt oder Klassentyp erforderlich'.

Nun meine Frage:
Ist solch eine Operation nicht möglich wie ich das hier beabsichtige? Wenn ja wie?

Ich bedanke mich schon einmal für Antworten und Hilfestellungen.


MfG