[s0Creator]

Есть два предположения:
- T.Name может регистрозависимо и надо t.Name ?

- Deistvie varchar(20) а s3 уже длиннее 20 символов. Вот и ругается на Query1.Next

а так как у тебя все в одну строчку то попадаешь на следующую.
Напиши каждый оператор в отдельной строке и попробуй пошагово.

И записывать можно по проще:

Код:

  Query1.Sql.Text := 'Create table IstKl (Data datetime,Sum numeric,Deistvie varchar(20)) ';
  Query1.execSQL;

  Query2.Sql.Text := 'Select Data,Stoim,t.Name ' +
    'From Tovari t,Vidacha v,Klienti k ' +
    'Where t.ID_tov=v.ID_tov and k.ID_kl=v.ID_kl and k.ID_kl=''' + FormMain.Edit9.Text + '''';
  Query2.Open;

  Query3.Sql.Text := 'Select Data,Summa ' +
    'From KL_Schet c,Klienti k ' +
    'Where k.ID_kl=c.ID_kl and k.ID_kl=''' + FormMain.Edit9.Text + '''';
  Query3.Open;

  Query5.Sql.Text := '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 + '''';
  Query5.Open;
...........