[4kusNick]

Еще один вариант реализации:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  sString1  : String;
  sString2  : String;
  I         : Integer;
  iPos      : Integer;
begin

  i:=0;
  while I < 3 do
  begin
    iPos := PosEx(' ',Label1.Caption,iPos + 1);
    Inc(I);
  end;

  sString1 := MidStr(Label1.Caption,iPos+1,(PosEx(' ',Label1.Caption,iPos+1))-iPos-1);
  sString2 := MidStr(Label1.Caption,Pos('/',Label1.Caption)+1, Length(Label1.Caption));

end;