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

Function RString(os:string;s :char) : string;
 var
   i,pos : integer;
   ch,ergstring : string;
begin
   pos:=0;
   for i := 1 to length(os) do begin
         ch := copy(os,i,1);
           if ch=s then pos:=i+1;
               end;
    ergstring:=copy(os,pos,length(os)-pos+1);
     result:= ergstring;
end					

1:
2:
3:
4:

Var 
   name : string;

   name:=RString(TempList.Items.Strings[i-1],'=');					

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

function RString(os:String; c:Char):String; 
var x:integer; 
begin 
  // wo ist unser Zeichen?
  x:=System.Pos(c, os);
  if (x>0) then 
    // gefunden, also rechten Teil des Strings kopieren
    Result:=System.Copy(os, x+1, Length(os)-x)
  else 
    // nichts gefunden, Zeichen kommt nicht vor, leeren String zurückgeben
    Result:='';
end; // RString