access violation

[bjma]

Ich habe vergessen den Programmaufruf beizufügen.

Es handelt sich um ein Programm zur Dokumentenverwaltung.

procedure TRapport_erfassen.SpeedButton30Click(Sender: TObject);
var
t:integer;
s,name:string;
begin
showmessage(inttostr(Self.FileListBox1.ItemIndex)) ;
if not Self.FileListBox1.ItemIndex >-1 then exit;
if MessageDlg('Soll Rapport gelöscht werden?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin


if Self.FileListBox1.ItemIndex >-1 then
begin
name :=Self.FileListBox1.Items.Strings[Self.FileListBox1.ItemIndex];
name:= Maute_Verwaltung.laufwerk_rapport_bearbeiten+name ;

t:=filelistbox1.ItemIndex ;
webbrowser1.Navigate('about:blank');

while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;;
sleep(500);

if not deleteFile(name) then
begin
ShowMessage(SysErrorMessage(GetLastError));
showmessage('Fehler - löschen kopie- bei: '+name);
end;
filelistbox1.Items.Delete(t);
filelistbox1.itemindex:=t-1;
s:=filelistbox1.FileName ;

Webbrowser1.Navigate(s);

end;
end;


end;

Es werden PDF-Dokumente archiviert.

Gruß Jürgen