procedure SetPreved;
begin
  Form1.Edit1.Text:= 'Prived';      // Запостить в Edit1 строку 'Prived'
  Form1.Caption:= Form1.Edit1.Text; // Получил из Edit1 значение.
end;

try
  IdUDPServer1.Send(edit1.Text,portt,edit2.Text+'*');
except
  ShowMessage('IP ni figa ne suchestvuet!');
end;

try DateTimeToSystemTime(EncodeDateTime(Year, Month, Day, Hour, Minute, Second, 0), SysTime);
except {ничего не делаем}
end

TForm8 = class(TForm)
  private
    { Private declarations }
    procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

procedure TForm8.wmSysCommand;
begin
  case Message.wParam of
    SC_MINIMIZE: ShowMessage('Minimized');
  end;
  inherited;
end;

try
  DateTimeToSystemTime(EncodeDateTime(Year, Month, Day, Hour, Minute, Second, 0), SysTime);
except
end

function SetSysTime(const StrValue: String; const aDateSeparator: Char): Boolean;
var
  SysTime: TSystemTime;
  TmpTime: TDateTime;
  TmpDateSeparator: Char;
begin
  TmpDateSeparator:= SysUtils.DateSeparator;
  SysUtils.DateSeparator:= aDateSeparator;
  Result:= True;
  try
    StrToDateTime(StrValue); // Типа проверки на соответствие. ;)
  except
    on EConvertError do Result:= False;
  else
    Result:= False;
  end;
  if Result then
  begin
    DateTimeToSystemTime(StrToDateTime(StrValue), SysTime);
    SetLocalTime(SysTime);
  end;
  SysUtils.DateSeparator:= TmpDateSeparator;
end;