Wyszukiwanie po frazie i kopiowanie wierszy pomiędzy StringGrid

Witam, chciałbym przenieść z StrigGrid1 do StrigGrid2 dane ale mam problem z pustymi polami po przeniesieniu.
Stringgrid1 wygląda tak

01/02/2014
01/01/2014
02/02/2014
03/03/2014
03/02/2014

po przeniesieniu do stringgrid2
mam coś takiego

01/02/2014
{puste pole}
02/02/2014
{puste pole}
03/02/2014

pytanie jest jak się pozbyc pustych pól,
to jest mój kod na wyszukanie frazy I przeniesienie do stringgrid2.
prosze o wskazówkę jak to zrobić.

var
  x,y:integer;
  szukanafraza, s: String;

begin
   szukanafraza:= '02/2014';

 for y:=0 to StringGrid1.RowCount-1 do
      for x:=0 to StringGrid1.ColCount-1 do
          begin
            s:= StringGrid1.Cells[x,y];
            if Pos(szukanafraza, s) > 0 then
             if  stringgrid1.Cells[x,y] <> '' then  // tu chciałem usunąć puste pole ale nie dziala
               begin

                StringGrid2.ColCount:=x;
                StringGrid2.RowCount:=y;
              stringgrid2.Cells[x,y] := Stringgrid1.Cells[x,y] ;

               end;
          end;

end;

dodanie znacznika <code class="delphi"> i znaczników <code> - Furious Programming

Rozumiem, że jeśli fraza znajdzie się w obojętnie jakiej kolumnie 1 grida to ma zostać przepisany cały rekord do drugiego?

var
  x,y:integer;
  szukanafraza, s: String;
  LastEmptyRow: integer;
begin
  szukanafraza:= '02/2014';
  LastEmptyRow := 1;
  for y:=0 to StringGrid1.RowCount-1 do
    for x:=0 to StringGrid1.ColCount-1 do
      begin
        s:= StringGrid1.Cells[x,y];
        if Pos(szukanafraza, s) >0 then
        begin
          StringGrid2.Rows[LastEmptyRow] := StringGrid1.Rows[y];
          LastEmptyRow := LastEmptyRow + 1;
        end;
      end;
end;

Gdzie LastEmptyRow to ostatni pusty wiersz drugiego stringgrida przy czym w podanym kodzie nie zwiększam ilości wierszy (StringGrid2.RowCount := StringGrid2.RowCount + 1;).

Chciał bym podziekować Ci szopenfx za kod, wstawilem do mojego programu I wszystko dziala ;