[Dima]

1.Как удалить форму,которая при запуске появляется первой?И из оставшихся выбрать ту,которая будет появлятся после удаления этой формы?

2.

Код:

qtxt:='Select Data,Peni,T.Name '+
' From Tovari t,Vozvrat v,Klienti k '+
' Where t.ID_tov=v.ID_tov and k.ID_kl=v.ID_kl and k.ID_kl='''+FormMain.Edit9.Text+'''';
With Query5 do begin Sql.Clear; Sql.Add(Qtxt); Open; end;

while not Query5.Eof do
  begin
  Qtxt:= 'Insert into IstKl(Data,Sum,Deistvie) '+
  'Values ( '''+DateToStr(Query5['Data'])+''','''+IntTostr(Query5['Peni'])+''','''+s3+Query5['Name']+''')';
  With Query1 do begin Sql.Clear; Sql.Add(Qtxt); execSQL; end;
  Query5.Next;
  end;

В строке Query5.Next; выдает ошибку:

Код:

General SQL error.
[Microsoft][ODBC SQL Server Driver][SQL Server]String or binary data would be truncated.
[Microsoft][ODBC SQL Server Driver][SQL Server]The statment has been terminated.

Подскажите в чем тут проблема?
Если нужно,могу выложить весь код.