procedure TForm1.Open_ActionExecute(Sender: TObject);
  var s:string;
begin
  if OpenDialog1.Execute then
    begin
      AssignFile(fki, OpenDialog1.FileName);
      Reset(fki);
      while not eof(fki) do
        begin
          AdoQuery1.Append;
          readln(fki, s);
          AdoQuery1.FieldByName('Esemeny').AsString:=copy(s,1,6); // Column 1
          AdoQuery1.FieldByName('Datum').AsString:=copy(s,9,15); // Column 2
          AdoQuery1.FieldByName('Ido').AsString:=copy(s,18,22); // Column 3

        end;
      CloseFile(fki);
    end;

end;