constructor TPasteBin.Create(aContent, aTitle: string);
begin
  inherited Create;
  if Length(Trim(aContent))>0 then
    FContent:=aContent;
  if Length(Trim(aTitle))>0 then
    FTitle:=aTitle;
end;