[lmikle]

Если все строки такого вида, то дели по запятым.

Код:

var
  V1, V2, V3 : String;
  InString : String;
begin
  InString := 'DropItem(II_GEN_FOO_ICE_ORANGEJUIICE, 600000001, 0, 1);';
  InString := Copy(InString,Pos(',',InString)+1,Length(InString));

  V1 := Trim(Copy(InString,1,Pos(',',InString)-1));
  InString := Copy(InString,Pos(',',InString)+1,Length(InString));

  V1 := Trim(Copy(InString,1,Pos(',',InString)-1));
  InString := Copy(InString,Pos(',',InString)+1,Length(InString));

  V3 := Trim(Copy(InString,1,Pos(')',InString)-1);

Если строки разные, то тогда уже проще сделать небольшой парсер, который и будет их разбирать.