Access violation at address 00447E73 in modul Project.exe. Read of address 00000057.

[ArtGrek]

люди помогите, неуж то никто не знает как с етим справица
как правельно удалить компонент?
и еше, хочу уточнить ошибку
Tekst_x_1, Tekst_x_2, Tekst_x_3 :My Labels Name;
удаляя Tekst_x_2 и переименовывая Tekst_x_3 в Tekst_x_2, при обрашении к Tekst_x_2 идет запрос в память старои Tekst_x_2?
я верно понимаю свою ошибку?

[GunSmoker]

Приведи последний вариант кода, строчку с ошибкой и стек вызова.

[ArtGrek]

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i_EKD: integer;
  c_EKD: Integer;
begin
  if (Key=VK_DELETE) and (TLabel(TekstS) <> nil) then
  begin
    c_EKD := 0;
    TLabel(TekstS).Free;
    if StrToInt(TekstKol[List[8].IndexOf(ImSender)]) > 0 then
      for i_EKD := 1 to StrToInt(TekstKol[List[8].IndexOf(ImSender)]) do
        if FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_EKD)) <> nil then
        begin
          inc(c_EKD);
          TLabel(FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_EKD))).Caption :=
            'Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(c_EKD);  
//Access violation at address 00447E73 in modul Project.exe. Read of address 00000057.
        end;
    TekstKol[List[8].IndexOf(ImSender)] := IntToStr(StrToInt(TekstKol[List[8].IndexOf(ImSender)]) - 1);
    Image1Click(Image1);
  end;
end;

[GunSmoker]

Включи в опциях Use Debug DCUs и сделай Build (не Compile).

И дай стек вызова при ошибке.

[ArtGrek]

Project -> Options -> Compiler -> Use Debug DCUs
Project -> Build Project1
что должно произоити?

[ArtGrek]

procedure TControl.SetVisible(Value: Boolean);
begin
  if FVisible <> Value then  //курсор был здесь
  begin
    VisibleChanging;
    FVisible := Value;
    Perform(CM_VISIBLECHANGED, Ord(Value), 0);
    RequestAlign;
  end;
end;

зделал build во время ошибки

P.S. Могу дать весь проект

[ArtGrek]

я как говорил Stilet в OnClose добавил проверку
if FindComponent('Tekst_' + IntToStr(List[8].IndexOf(ImSender)) + '_' + IntToStr(i_FCl)) <> nil then
и ошибка не выходит, но ето не решает проблемы
если у меня было 7 лабелов и 5-и я удалю, а потом поставлю в цикле 6 раз
TLabel(FindComponent('Tekst_1_' + IntToStr(i)).Caption := ....
имена поменяюца только у 5 из 6 оставшихся лабелов, потому что 5(удаленыи) находица, но не проходит проверки и до 6 просто не доходит очеред

[GunSmoker]

Стек вызова при ошибке ты скоро выложишь?

[ArtGrek]

не могу его получить
view -> debug windows -> call stack
Process is not accessible

[GunSmoker]

Ну так ты делай это когда процесс стоит на паузе. Да не просто на паузе, а когда ошибка возникла.

Вот появилось сообщение об AV - ты жми на OK/Break и снимай стек.