подкорректировать прогу на делфи-сортировка в стрингриде

[west.by]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids ;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n,k,i:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=3;
Edit1.Text:=IntToStr(n);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;

end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
s:string; //преобразование массива

begin
    with StringGrid1 do begin
   for i:=0 to RowCount-1 do begin
    for j:=0 to Rows[i].Count-1 do begin
     tag:=StrToIntDef(rows[i][j],0);
     if (tag mod 2) =0 then begin
      StringGrid2.Rows[i].Add(rows[i][j]);
      rows[i][j]:='';
     end else
      s:=s+rows[i][j]+#13#10;
    end;
    Rows[i].Text:=s;
    s:='';
end;
end;
end;


end.

[TwiX]

Не в обиду конечно, но лично мне лень... Качать прогу, разбираться в чужом коде, заливать обратно. Это же для вопросов форум... Ладно бы там "Помогите написать процедуру сортировки", а тут только сказано, что не работает прога, добавлен 1 комментарий и всё...
Это моё мнение, поэтому если у вас другое, то прошу не пинать, а просто высказать его постом ниже =)

[Volt]

ни качайте в архиве нет не одного pas файла. а из приведенного кода ни чего не понятно что надо. Хочу что бы было так а как сами догадывайтесь.

[Stilet]

Хрусть: http://www.delphiworld.narod.ru/base..._int_sort.html
Еще хрусть: http://www.delphiworld.narod.ru/base/sg_sort3.html

[west.by]

Сообщение от TwiX

поэтому если у вас другое, то прошу не пинать, а просто высказать его постом ниже =)

Принципе код я уже выложил(не получается скачать и просмотреть-не качайте-есть код с ОПИСАНИЕМ в нем)

Далее-то что нужно получить есть на картинке-я этого не могу получить своим кодом-но ищу опытного гуру который может дать доп.код лдля моей программы а не с нуля ее переколбасить...

[Don Karleone]

можно вот так:

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j: integer;
  k: integer;
  a,b: integer;
  flag: boolean;
begin
  StringGrid3.ColCount:=StringGrid1.ColCount;
  k:=0;
  for i:=0 to StringGrid1.ColCount-1 do
    begin
      flag:=false;
      for j:=0 to StringGrid2.ColCount-1 do
        begin
          try
            a:=StrToInt(StringGrid1.Cells[i,0]);
            b:=StrToInt(StringGrid2.Cells[j,0]);
            if a = b then flag:=true;
          except
          end;
        end;
      if not flag then
                    begin
                      StringGrid3.Cells[k,0]:=StringGrid1.Cells[i,0];
                      Inc(k);
                    end;
    end;
end;

ну а в StringGrid4 нужно просто скопировать StringGrid2.

Только я не пойму причем тут сортировка? Если судить по скриншоту в StringGrid3 должны быть занесены те элементы из StringGrid1, которые отсутствуют в StringGrid2.