Filnavn eller ej?

Kode 

uses StrUtils;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if(AnsiStartsText('http://','http://www.yahoo.com'))then
  begin
    showmessage('http:// starts adress');
  end
  else
  begin
    showmessage('http:// does no start adress');
  end;
end;