1:

temppos:=pos('Erfahrung', memo1.lines);                    

1:
2:
3:
4:
5:

i:=0;
p:=pos('Erfahrung', memo1.text);
while memo1.text[p] <> #13 do begin inc(p); inc(i); end;
dec(p,i);
edit1.text := copy(memo1.text,p,i);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Var
  iZeilenNr : Integer;

Begin
  For iZeilenNr :=0 to memo1.lines.count - 1 do
    If Pos ('Erfahrung',memo1.lines[iZeilenNr])<>0 then Begin
      Label1.Caption := Format ('Gefunden in Zeile %d, "%s",[iZeilenNr, memo1.lines[iZeilenNr] ]);
      break;
    End;
...
End;                    

1:
2:
3:
4:

var Row : Integer;
  //...
  Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR,Pos('String_X', Memo1.Text), 0);
  Edit1.text := Memo1.Lines[Row];                    

1:
2:
3:
4:
5:
6:
7:
8:

var z : Integer;
//...
  for z := 0 to Memo1.Lines.Count-1 do
    if Pos('String_X', Memo1.Lines[z]) <> 0 then
      begin
      Edit1.text := Memo1.Lines[z];
      break;
      end;                    

1:
2:
3:
4:
5:
6:

var p : Integer;
    s : String;
begin
  p := Pos('String_X', Memo1.tText);
  s := Copy(memo1.text,p,Length(Memo1.Text)-p);
  Edit1.Text := Copy(s,1,Pos(#13,s)-1);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button3Click(Sender: TObject);
var
g1:integer;
t,c:string;
izeilennr:integer;

begin

For iZeilenNr :=0 to memo1.lines.count - 1 do
If Pos ('Gold ',memo1.lines[iZeilenNr])<>0 then
begin
goldedit.text:=memo1.Lines[iZeilenNr];
end;
t:=goldedit.text;
g1 := pos('Gold ', t);
c:=( copy (t,g1+5,maxint-1) );
edit3.text:=c;
end;                    

1:
2:
3:
4:
5:
6:

var i : Integer;
    t : String;
begin
  t:=goldedit.text;
  i := StrToInt(Trim(Copy(t,Pos(' ',t)+1,maxint)));
  Showmessage(IntToStr(i));                    

1:
2:

//t := goldedit.text;
t := 'Gold 4291 ';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button3Click(Sender: TObject);
var i : Integer;
    t : String;
    izeilennr:integer;
begin
For iZeilenNr :=0 to memo1.lines.count - 1 do
If Pos ('Gold ',memo1.lines[iZeilenNr])<>0 then
begin
t:=memo1.Lines[iZeilenNr];
end;
    i := StrToInt(Trim(Copy(t,Pos(' ',t)+1,maxint)));
  Showmessage(IntToStr(i));

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button3Click(Sender: TObject);  
var i : Integer;  
    t : String;  
    izeilennr:integer;  
begin
  
 For iZeilenNr :=0 to memo1.lines.count - 1 do
  //Pos(...) ist auch dann <>0 wenn 'Gold ' nicht
  //am Beginn der Zeile steht
  If Pos ('Gold ',memo1.lines[iZeilenNr])<>0 then  
   begin  
   t:=memo1.Lines[iZeilenNr];  
   end;
//*************
//Diese Zeilen werden immer ausgeführt,
//auch wenn keine Zeile mit 'Gold ' enthalten ist   
    i := StrToInt(Trim(Copy(t,Pos(' ',t)+1,maxint)));  
  Showmessage(IntToStr(i));  
//************* 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
t:string;
i:string;
g,h,j:string;
begin
t:='Gold 12261 (45065) ';
i:=(Trim(Copy(t,Pos(' ',t)+1,maxint)));
g:=copy(i,1,Pos('(',i)-2);
edit1.text:=g;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var
  t, i: String;
begin
  t := 'Gold 12261 (45065) ';
  i := Trim(Copy(t, Pos(' ', t) + 1, Pos('(', t) - 2));
  Edit1.Text := i;
end;                    

1:
2:
3:
4:
5:

  GoldLabel.Caption := IntToStr(Pos('Gold ', Memo1.Text));
  if StrToInt(GoldLabel.Caption) <> 0 then
  begin
    //...
  end;                    

1:
2:
3:
4:

  if Pos('Gold ', Memo1.Text) > 0 then
  begin
    //...
  end;