Перевод кода с делфи в Builder

[KARTMAN4149962]

Помогите кто может перевести вот этот код на язык С++ Builder

procedure TForm1.Button2Click(Sender: TObject);
var
s,k:integer;
tmp:string;
begin
s:=1;
while s=1 do
begin
 s:=0;
 for i:=1 to StringGrid1.RowCount-2 do
 begin
  if StringGrid1.Cells[4,i+1]<StringGrid1.Cells[4,i] then
   begin
    for k:=0 to 4 do
     begin
     tmp:=StringGrid1.Cells[k,i];
     StringGrid1.Cells[k,i]:=StringGrid1.Cells[k,i+1];
     StringGrid1.Cells[k,i+1]:=tmp;
     s:=1;

    end;
   end;
 end;
end;
end;