procedure TForm1.Kryptaa(FromKirjain: String; ToKirjain: String);
Var Kirjainnumero, RiviNumero, Lisays, Ero: Integer;
Apulines: TstringList;
//aina kun kirjain poistetaan niin lisäys kasvaa, jotta kirjainpaikat säilyy
begin
Lisays:= 0;
Ero:= Length(FromKirjain)-Length(ToKirjain);
Apulines:= TStringList.Create;
If Pos(FromKirjain, Memo1.Lines.Text)> 0 then
Repeat //a to Muisti
Kirjainnumero:= Pos(FromKirjain, Memo1.Lines.Text);
Apulines.Add(IntToStr(Kirjainnumero+Lisays));
Memo1.SelStart := Kirjainnumero - 1;
Memo1.SelLength := Length(FromKirjain);
Memo1.SelText := '';
Inc(Lisays, Length(FromKirjain)-Ero);
Until Pos(FromKirjain, Memo1.Lines.Text)=0;

If Pos(ToKirjain, Memo1.Lines.Text)> 0 then
Repeat //b to a
Kirjainnumero:= Pos(ToKirjain, Memo1.Lines.Text);
Memo1.SelStart := Kirjainnumero - 1;
Memo1.SelLength := Length(ToKirjain);
Memo1.SelText := FromKirjain;
Until Pos(ToKirjain, Memo1.Lines.Text)=0;

If Apulines.Count>0 then
For RiviNumero:=0 to Apulines.Count-1 do begin//Muisti to b
Memo1.SelStart := StrToInt(Apulines[RiviNumero])-1;{Kohdistin VASEMMALLE puolelle (-1)}
Memo1.SelText := ToKirjain;
end;
Apulines.Clear;
Apulines.Free;
end;

procedure TForm1.TallennusNappiClick(Sender: TObject);
begin
Kryptaa('a', '1');//näitä voi sitten vaihdella ihan niin kuin haluaa!
Kryptaa('b','2');
Kryptaa('c','3');
Kryptaa('d','4');
Kryptaa('e','5');
Kryptaa('f','6');
Kryptaa('g','7');
Kryptaa('h','8');
Kryptaa('i','9');
Kryptaa('j','0');
Kryptaa('k','.');
Kryptaa('l',',');
Kryptaa('m','-');
Kryptaa('Ukko1 Rahamäärä', 'Tuoretta rehua, njam!');
end;