Problem mit Buttons

[Tommy1988]

dadrum gehts:

procedure TForm2.Button2Click(Sender: TObject);
begin
SetWindowLong(Button1.Handle, GWL_STYLE,GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);

Button1.Enabled := DirectoryExists('C:\... mein pfad');
if Button1.Enabled = True then
Button1.Caption := 'OK!'
else
Button1.Caption := 'nicht ok';
end;