[Alegun]

Попытка построчной шифровки не есть хорошо, возможно надо так:

Код:

procedure TForm1.Button5Click(Sender: TObject);
begin
  Memo1.Text:= Encrypt(Memo1.Text, StartKey, MultKey, AddKey);
end;

Естественно, расшифровывать тоже таким макаром.