Problem z sigsegv

Witam.
Mam problem z wczytaniem rekordu z TListView do pól TEdit.
Otóż mam bazę danych i wczytuje rekordy do elementu TListView. Każde kliknięcie w wiersz wczytuje rekordy po "ID" w pola TEdit do szybkiej edycji. Gdy kliknę po raz pierwszy w rekord zostaje wyświetlony showmessage z numerem ID a rekord pięknie wskakuje w pole TEdit, następnie gdy wcisnę kolejny raz rekord dostaję błąd sigsegv. Piszę w Lazarus(baza firebird)

procedure Get.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
pobierzID : Integer;
I : Integer;

begin
        pobierzID := 0;
        I := 0;
        pobierzID:= StrToInt(ListView1.Selected.Caption);
        ShowMessage(IntToStr(pobierzID));
        SQL8.Params.ParamByName('takeID').AsInteger :=pobierzID;
        SQL8.Open;
        for I := 1 to SQL8.RecordCount do
          begin

               edID.Text:=SQL8.FieldByName('ID').asString;
               edIMIE.Text:=SQL8.FieldByName('IMIE').asString;
               edNAZWISKO.Text:=SQL8.FieldByName('NAZWISKO').asString;
               edJO.Text:=SQL8.FieldByName('JO').asString;
               edSTACJONARNY.Text:=SQL8.FieldByName('STACJONARNY').asString;
               edKOMORKOWY.Text:=SQL8.FieldByName('KOMORKOWY').asString;
               edFAX.Text:=SQL8.FieldByName('FAX').asString;
               edEMAIL.Text:=SQL8.FieldByName('EMAIL').asString;
               SQL8.Next;

         end;
         SQL8.Close;
end;