[bambooshoot]

Красота! Я наверное вас не удивлю, если скажу, что и работает код на отлично Спасибо! Приятно было пообщаться и выслушать совет. Вот то, что мы имеем на выходе:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  T: TStringList;
  i, j: Integer;
  k, b:string;
begin
  T :=TStringList.Create;
  try
    T.Delimiter := ' ';
    T.DelimitedText := Edit1.Text;
          StringGrid1.Cells[0,0]:= T[0];
        StringGrid1.Cells[1,0]:= T[1];
         StringGrid1.Cells[2,0]:=T[2];
          StringGrid1.Cells[4,0]:= T[4];
           k:=StringGrid1.Cells[2,0];
          for i := Length(k) downto 1 do
              if k[i] = #$00D8 then Delete(k, i, 1);
                 StringGrid1.Cells[2,0]:=k;
            end;
         T.Delimiter := 'x';
    T.DelimitedText :=StringGrid1.Cells[2,0] ;
          StringGrid1.Cells[2,0]:= T[0];
        StringGrid1.Cells[3,0]:= T[1];
  finally
    T.Free;
  end;
end;

Удачи всем!