How to check if a directory exists?

procedure TForm1.Button1Click(Sender:TObject);
begin 
if DirectoryExists(’C:\Data’) then
begin 
ShowMessage(’Directory already exists’);
end;
end;