Помогите разобраться с SQL-запросом

[MasterofCDM]

Помогите пожалуйста, что я делаю не так:

        Result := MySQL.Query('SELECT * FROM `AdmReforma` WHERE `id` = ' + Items.Caption);
        if Result <> nil then
        begin
            Edit1.Text := Result.ValueByName['Name'];
        end

В итоге Edit1.Text пустой, хотя вроде как все работает!!!

[D-mon]

А можно немного больше кода??? Немогу понять какие это компоненты??? Если не стандартные то напишите какие!!!

[MasterofCDM]

Я разобрался в чем дело, просто заместо:

Edit1.Text := Result.ValueByName['Name'];

поставил

              while Result.FetchRow do
              begin
                  Edit1.Text := Result.ValueByName['Name'];
                  Edit2.Text := Result.ValueByName['Path'];
              end;

и все заработало.

[MasterofCDM]

Теперь в другом проблема:

procedure TForm1.Button3Click(Sender: TObject);
var
  Result: IMySQLQuery;
  Items : TListItem;
  sql: string;
begin
    if ListView1.Selected <> nil then
    begin
      MySQL.Database := 'Academia';
      if MySQL.Database <> 'Academia' then
      begin
          ShowMessage ('База не существует');
          Exit;
      end
      else
      begin
          MySQL.ExecSQL('SET CHARSET cp1251');
          sql := 'DELETE FROM AdmReforma WHERE id = ' + Items.Caption;
          Result := MySQL.Query('DELETE FROM AdmReforma WHERE id = ' + Items.Caption);
          ListView1.Items.Clear;
    end;
end;

При нажатии кнопки вызывающей эту процедуру, Delphi вылетает с ошибкой и спотыкается он на строчке:
sql := 'DELETE FROM AdmReforma WHERE id = ' + Items.Caption;
чего здесь может быть неправильно?

[Stilet]

sql := 'DELETE FROM AdmReforma WHERE id = ' + ListView1.Selected.Caption;

[MasterofCDM]

Честно говоря не понимаю разницу между: Items.Caption и ListView1.Selected.Caption, но тем не менее так работает. Спасибо.