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

function First(s:string):string
  var
  Posleer:Integer
  begin
  Posleer:=Pos(' ',S)
  if(Posleer <>0) then
  Delete (S,Posleer,Length(S);
Result:=S
end;					

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

function ButFirst (s:string):string;
var
Posleer:Integer
begin
Posleer:= Pos (' 's);
if (Posleer <>0)then
Delete (S,1,Posleer)
Result:=S;
end;					

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

function Last(s : string) : string;
var bEnabled : boolean;
begin
bEnabled := true;

while bEnabled do
  begin
  if pos(' ',s) > 0 then
    delete(s,1,pos(' ',s))
   else
    begin
    result := s;
    bEnabled := false;
    end;
  end;
end;					

1:
2:
3:
4:
5:

i := length(MeinString);
repeat
  dec(i);
until (MeinString[i]=' ') OR (i = 1);
LetztesWort := copy(MeinString, i{+1?}, length(MeinString)-i);					

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

function Last(s:string):string
  var
   Posleer:Integer
   begin
      if Posleer <>0 then
      Delete (S,Posleer,Length(S);
      else					

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

function First(S: String): String;
  var
    PosLeer: Integer;
begin
  PosLeer := Pos(' ',S); // Position des ersten Leerzeichens in S, oder 0
  if (PosLeer <> 0) then // wenn ein Leerzeichen drin ist, dann
    //     +-----------------------in diesem String Zeichen löschen
    //     |  +---------------------ab dem Leerzeichen
    //     v  v        v-------------bis zum Ende der Zeichenkette
    Delete(S, PosLeer, Length(S));
  Result := S; // das Funktionsergebnis ist der Rest in S
end;					

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

function Last(S: String): String;
  var
    PosLeer: Integer;
begin
  PosLeer := Pos(' ',S); // Position des ersten Leerzeichens in S, oder 0
  while (PosLeer <> 0) do // solange noch ein Leerzeichen in S ist...
    // lösche das erste Wort und bestimme PosLeer neu
  Result := S; // Rest ist das letzte Wort
end;					

1:
2:
3:
4:

//     +-------------in diesem String löschen
//     |  +-----------ab dem ersten Zeichen
//     v  v  v---------bis zum ersten Leerzeichen
Delete(S, 1, PosLeer);					

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

function Last(S:string):string;
  begin
  while Pos(' ',S)>0 do
    S:=ButFirst(S);
  Result:=S;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

//damit bekommt man die stelle von hinten her...
function backpos(searchstr:char;source:string):integer;
var i:integer;
begin
  for i := length(source) downto 1 do
    if source[i] = searchstr then
      begin
        result := i;
        exit;
      end;
end;
//oder
function laststring(source:string; searchchar:char):string;
var i:integer;
begin
result:=source;
  for i:=length(result) downto 1 do
    if result[i] = searchchar then
      begin
        delete(result,1,i);
        exit;
      end;
end;
//dann kannste au no den ganzen text erst umdrehen xD
function ls2(source:string; searchchar:char):string;
var i:integer;
    temp:string;
begin
setlength(temp,length(source));
for i:=length(source) downto 1 do
  temp[length(source)-i+1]:=source[i];
delete(temp,pos(searchchar,temp),length(temp));
showmessage(temp);
setlength(result,length(temp));
for i:=length(temp) downto 1 do
  result[length(temp)-i+1]:=temp[i];
end;
//ach da gibts noch viel mehhhr möglichkeiten