[*Caro*]

Hola , te puedes ayudar con un StringList y sus propiedades Delimiter y DelimitedText.

Código Delphi [-]
var
 slLinea : TStringList;
 var1,var2,var3, var4 : String;
begin
 slLinea := TStringList.Create;

 slLinea.Delimiter:=#32; //Sera el separador que utilizara DelimitedText, en este caso el espacio
 slLinea.DelimitedText:=Linea;
 
 var1 := slLinea[0];
 var2 := slLinea[1];
 var3 := slLinea[2];
 var4 := slLinea[3];

Saluditos