string konvertor

Code:

procedure TForm1.Button1Click(Sender: TObject);

  function StrToStrings(const S: string; const Separator: char): TStrings;
  begin
    Result := TStringList.Create;
    Result.Text := AnsiReplaceStr(S, Separator, #13#10);
  end;
begin
  with StrToStrings('B: QLG74M YBQYGD 1 0 0 { 0:0:1 }', ' ') do
    try
      ShowMessage( 'korisnik = ' + Strings[1] + #13+#10 +
                      'sifra = ' + Strings[2]);

      with StrToStrings(Strings[7], ':') do
        try
          ShowMessage( 'dvotacka1 = ' + Strings[0] + #13+#10 +
                       'dvotacka2 = ' + Strings[1] + #13+#10 +
                       'dvotacka3 = ' + Strings[2]);
        finally
          Free;
        end;

    finally
      Free;
    end;
end;