Błędy w fileexists

[pioncz]

Witam,
Mam mały kłopot z fileexists. Na początku programu działa normalnie, ale jeżeli poprzez dialogi znajdę plik z poza folderu w którym program się znajduje, to fileexists pokazuje że niema pliku który rzeczywiście jest. Na formie 2 buttony. Pierwszy z dialogiem :
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'> if OpenDialog1.execute then
begin
ikona:=PChar(OpenDialog1.FileName);
end;
</div>
A w drugim buttonie
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>if not fileexists('serwer.exe') then
begin
er1 := true;
Application.MessageBox('Brak pliku serwer.exe','Error',MB_OK or MB_ICONSTOP);
end;</div>
Dlaczego fileexists jest zależne od dialogu ?

 

[djmentos]

eee? nic nie jest zalezne od dialogu. chyba ze umiesciles to w jego proceduze albo pomyliles warunki

 

[pioncz]

Spróbuj :
2 buttony i 1 opendialog
kod:
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-spacere;overflow:auto'>unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ikona:string;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
if not fileexists('License.txt') then
begin
Application.MessageBox('Brak pliku serwer.exe','Error',MB_OK or MB_ICONSTOP);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.execute then
begin
ikona:=PChar(OpenDialog1.FileName);
end
end;

end.</div>

Komuś to działa ?