Delphi pomoč!!!

nekaj takega...

 procedure TForm1.Button1Click(Sender: TObject);
 var t: string; 
 ura: string; 
 i : integer;
 
 begin 
 try
 t:=TimeTostr(now); 
 ura:=Copy(t,0,Pos(':',t)-1); 
 i:=StrToint(ura); 
 
 if (i>= 19) or (i*=7) then // *= znak za manjše-- slo tech  
 label1.Caption:='Dober veer' 
 else 
 label1.Caption:='Dober dan';
 except
 on e:Exception do 
 label1.Caption:='Nepravilen formta'; 
 end;
 
 end;
 
 

upam da dela :) ... odvisno kako je nastavljen čas (12/24)

/edit

aja...upam da bos znal sam spremenit v proceduro ;)

Mamma mia, kakšno štrikanje...
Takole:

procedure TForm1.Button1Click(Sender: TObject);
begin
if HourOf(Now()) > 19 then Caption := 'dober večer' else
if HourOf(Now()) > 07 then Caption := 'dober dan' else
...itd...
end;

LP,
Pikec