bu hata neden geliyor

[Policemal]

var
s, kont: string;
begin
s := edit1.Text;
kont := ';
While Pos(kont,S)<0 do
ShowMessage('Hatalı Bilgisayar Adı Girdiniz...');
end;


****************************************
ağ üzerinde çalışan bir program yaptım kullanıcılar bilgisayar adını girerken \\ işaretleri girmek zorunda yukarıdaki kodları kullanarak kontrol oluşturdum ancak kod hata ''Hatalı Bilgisayar Adı Girdiniz'' mesajı verince tamam butonuna basmamıza rağmen işlem yapmıyor acaba çozumu ne olabılır

[rsimsek]

kodu aşağıdaki şekilde Edit1 in OnExit ine yazmayı dene.

Kod: Tümünü seç

procedure TForm1.Edit1OnExit(Sender: TObject);
begin 
  if Pos('\\', edit1.Text) < 0 then //yanlız \\ ın başta mı yada sadece içinde mi olup olmadığı da önemli!
  begin
     ShowMessage('Hatalı Bilgisayar Adı Girdiniz...'); 
     Edit1.SetFocus; // dikkat edit1 e \\ yazmadan çıkamazsın!
  end;